9000 PRINT"[147]         *** TOUCH TONES ***"
9010 PRINT"   COL1(1209)  COL2(1336)  COL3(1477)
9020 [153]" ROW1(697)  1         2         3
9030 PRINT" ROW2(770)  4         5         6
9040 [153]" ROW3(852   7         8         9
9050 PRINT" ROW4(941)  *         0
9060 [153]"PUSH THE NUMBER TO HEAR TONES.
9070 SID=54272
9080 C1=117:C2=77:C3=152:C4=85:C5=161:C6=94
9090 R1=168:R2=44:R3=85:R4=49:R5=150:R6=54:R7=74:R8=60
9100 POKESID+24,15:POKESID+4,16
9110 POKESID+11,16:POKESID+5,0:POKESID+12,0
9120 POKESID+6,15*16:POKESID+13,15*16:POKESID+23,0
9130 :
9140 GETA$
9150 IFPEEK(197)=56THENPOKESID,C1:POKESID+1,C2:POKESID+7,R1:POKESID+8,R2:GOSUB9300
9160 IFPEEK(197)=59THENPOKESID,C3:POKESID+1,C4:POKESID+7,R1:POKESID+8,R2:GOSUB9300
9170 IFPEEK(197)=8THENPOKESID,C5:POKESID+1,C6:POKESID+7,R1:POKESID+8,R2:GOSUB9300
9180 IFPEEK(197)=11THENPOKESID,C1:POKESID+1,C2:POKESID+7,R3:POKESID+8,R4:GOSUB9300
9190 IFPEEK(197)=16THENPOKESID,C3:POKESID+1,C4:POKESID+7,R3:POKESID+8,R4:GOSUB9300
9200 IFPEEK(197)=19THENPOKESID,C5:POKESID+1,C6:POKESID+7,R3:POKESID+8,R4:GOSUB9300
9210 IFPEEK(197)=24THENPOKESID,C1:POKESID+1,C2:POKESID+7,R5:POKESID+8,R6:GOSUB9300
9220 IFPEEK(197)=27THENPOKESID,C3:POKESID+1,C4:POKESID+7,R5:POKESID+8,R6:GOSUB9300
9230 IFPEEK(197)=32THENPOKESID,C5:POKESID+1,C6:POKESID+7,R5:POKESID+8,R6:GOSUB9300
9240 IFPEEK(197)=49THENPOKESID,C1:POKESID+1,C2:POKESID+7,R7:POKESID+8,R8:GOSUB9300
9250 IFPEEK(197)=35THENPOKESID,C3:POKESID+1,C4:POKESID+7,R7:POKESID+8,R8:GOSUB9300
9260 REM NO PEEK 197 FOR #
9270 IFPEEK(197)=64THENPOKESID+4,16:POKESID+11,16
9280 GOTO9140
9290 :
9300 POKESID+4,17:POKESID+11,17:RETURN